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LINE JUSTIFIER 


Last month we said that we’d have a line Justification Program ready for 
this month’s issue. The listing is included below. 


We were writing the RAINBOW last month with a simPle word Processor that 
let us enter a whole line and make corrections before it was committed to the 
Print buffer ona Printer. That was an improvement over the Program that the 
manual had, mainly because it allowed us to backsPace for corrections. In the 
case of the RAINBOW, where we want to have lines which are risht-Justified, 
that worked only toa deSree -- mainly because we had to tyPe the line and 
then 90 back and add sPaces to make the lines come out even on the right-hand 
side. While the was easier than tyPing the RAINBOW on a typewriter (which 
would have required two tyPings it was still a hassle. Thus was born the ens 
word processor, below. b. È 


What happens here is that, using the INSTR Command, we search for sPaces 
ina line and then "peel off" spaces from the end of each line and add them 
to the spaces which are already between the wordz. Each line iz entered as AF 
and then Pulled apart. Spaces are inserted, and then the line is Put back 
together. There are two variations, one for a full-lensth line and the other 
for a half-lengsth one. 


The ProSram requires the tyPist to sPace to a certain sPot on the line, in 
effect, to fill uP the line with sPaces Ca Printer miSht call these space 
bands >. Those . spaces are then repositioned in the line to make it come out 
evenly. 


The screen disPlay is set uP so that there is a little black block for the 
twPist to "aim" at. Once the typist Sets close to the block, he or she Just 
ePaces in blanks until the cursor covers the black block. Then, the line is 
entered into the Print buffer and Prirted on the line Printer. 


As an added aid, the last tine typed is shown on the bottom of the screen. 
One of the reasons for this iz because we felt it would be easier for the 
tyPist to beSin the next line knowing what was on the Previous line ~~ without 
the need of having to look at the Printer. 


For short lines, Just hit ENTER when the line ends. However, a bus may -- 
but will not always -- apPear if you type a VERY short line. What can happen 
le that the one or two words in the line will repeat themselves. If that 
does occur, Just sPace down and retyPe the same line. It will 90 away. 


The remainder of the ProSram is devoted to the display and the 9raPhic 
signature for the Program and the software. 


THE LISTING . ... s 


19 CLS 

29 CLEAR 1099 

20 6)6 

43 GOSUB389 'GOSUB390 ' GOSUB490 ' PRINTSTRINGS¢ 32,45) 
SØ PRINT:PRINT"SELECT MODE!" 

50 PRINT" <12 ONE-COLUMN FORMAT":PRINT" )2 TWO-COLUMN FORMAT":PRINT:I 
۲۳۱۰ ENTER NUMBER"; 2ے‎ 

65 ON 22 60010160 249 

79 PRINT: INPUT "ENTER ONLY 1 OR 2 PLEASE": 22 

29 ON 22 GOTO0192, 240 

99 IF 22<>1 OR Z22<>2 THEN 70 


199 CLS 
110 N¢2" "'L=4 
120 605086366 : 600506390 : GOSIJB490 ' PRINT" ONE-COLUMN FORMAT" 


139 PRINT@160, STRINGS 32.455); :PRINT@271, CHRE, 123); "<--SPACE TO HERE" :PRINT@233, $ 
TRINGE 32,45); :PRINT@322,"...LAST LINE..."'PRINTAY:PRINTG@192,""53 ‘LINE INPUT A$ 
140 IF RIGHTECA$, 1)=" " THEN R¢=RIGHTSC AF, 1 >: AS=LEFTSC A$, 79> :GOTO170 

156 PRINT#-2. A$ 

169 )0)6 

179 8-2-1564 ا٠۴۶ ,ر‎ N$) 

139 CS=LEFT#< AFB? 

120 E$=RIGHT$ AF, 79-B > 

200 DSaC$+HN$ 

219 A$=D$+E$ 

229 L=LENf DF 2+4 

238 GOT0140 


240 CLS 

258 N=" 4ےا‎ 

269 GOSUB330 ' GOSUB390 6400ل605:0:‎ ۰ TWO-COLUMN FORMAT" 

278 ۴ 1۷۲601690, STRINGS 32, 45); :PRINTE230, CHRE 123 95"<--SPACE TO HERE": PRIHT@256,¢ 
TRING 32,43): 'PRINT@320, " s. -LAST LINE...":PRINTA:PRINT@192,""; ‘LINE INPUT F 
$ 


280 IF RIGHT$CA$,1>=" " THEN مءجم‎ ی٣‎ ٣۶ء‎ AS, 1 >: AS=LEFTSC AS, 37): 70 
290 PRINT#-2,AF 

3280 GOTN240 

319 B=INSTRLL. AF, N$) 

329 CS=LEFTECA$F, E) 

330 E$=RIGHT$ A$. 7-6( 

240 DFE=CE+HF 

A$=D$+EF‏ ود 

260 LLEN, D$ 2+3 

378 GOTN230 

322 F1$=CHREC129)+CHR$ 131 0۶۲۰+ر‎ 135 ):F2$=CHR$.132)+CHREL 141 ):F3F=CHR$133):F4T- 
١٢۳۴۶۴۲) 122+15 2: RETURN 

399 5۰ے‎ ٣۴1۷۲6347 ۴1۶۰۱۴۴1۸۲۳۵66 ۴2۶۰۱ ۴۳۴1۲۲۵292, ۴۵۶ ۰: RETURN 

400 ۴۴1۲۷٣۲۵393 "ALSOFT MINI-WORD PROCESSOR" : RETURN 

410 PRINT@193,"CC> FALSOFT, 1931" :FORM=1T0208:NEMT 

420 600 

430 FORK=376TO034STEP-32 ' GOSUB46a ' NEXT 

440 FOR X=S51TO34STEP~1 'GOSUB460 : ‘NEXT 

450 RETURN 

469 Y=X+32:Z=Y+32 :Q=Z+32 

470 PRINTEX,F1$'PRINTEY,F2$'PRINTEZ., ۴۵۴۰۴11۸۲280, F4$:RETIJRN 


as an intelligent 


system. 


terminal 


CBUG is a fine Program. It iz easy 
and gives a Sood look into the 
workings of the Color comPuter. 
in 
documentation and its easy to set 
uP and g0in9 qauickly. On the 
it is a Powerful tool that 
continue to Prove very wseful no 

how sophisticated you may be. 


Althoush I have the tape version, 
directions supplied by THE MICRO- 
are very clear in getting the 
version installed -~ either in 
case or in a ROM Pack. Wsina the 
er course, that you don’t 
RAM for CBIG. 


CBUG is 
MICROWORKS, 


available by mail from THE 
P.O. Box 1119, Cel Mar. CA 


92014 in either tape or EPROM version. 
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OFFICIAL NOTICE 


the RAINBOW 
Published bs FALSOFT 
5802 Timber Ridge Or. 
ProzePect, KY 40039 


Laurence C> Falk--Editor 
the PAINBOL is intended for the 
Personal use and Pleasure of itz sub- 
scribers and reproduction by any means 
is forbidden. Ize of Programs herein 
is for the eingle end use of subscri- 


bers, and any other use is Prohibited. 

TRS-80, Color Computer and Extended 
Color Basic are trademarks of Tands 
Core. 


All Programs herein are distributed 
on an "as-is" basis, without warranty. 


Subscriptions 
#12 per year. 
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CBIG. available on either tape or 
ar EPROM from THE MICROWORKS, is a 
full-scale monitor Program which alzo 


allows you. to use your Color ComPuter 
as a terminal. 


For instance, you can use it to; 
hook uP with ComPuServe -- and you can 
da it for the same Price as the VIDEN- 
TEX Program Put out by Radio Shack.. 
Since you also get a very Powerful | 
monitor as well Cin fact, you will be 
mich more interested in the monitor 
than din the terminal caPabilities >, 
COIG it a real bargain at £29.95 on 


tape or $29.95 on the EPROM. 


All in all, there are 19 commands 
in CBIG. B3 far the most imPortant 
ene is the "M" command, which stands 
for memors examine and change. With 
it vou dust type in "M" and a 
imal address, and the disPlay shows 
you a full eight bytes of memory at 
the location you specify. The line 
numbers are shown, and, if the loca- 
tion is within eight bytes of the line 
the تدع‎ Positions itself right in 


front of the byte you. specified. 
to change that byte, all you have to 
do is tyPe in the new herxidecimal 
number. Ho deleting or anything like 
that. CBUG then ٣٥١٠11008 the cursor 


And, 


in front of the next bute. and ucu. can 
change that. ton. 

Ba simPly moving the uP. down. left 
and right arrows, you can examine the 
memory contents above and below the 


one رہہ‎ originally specified. Tt tea. 
real nice way to maniPulate memory. 


CEUG alzo makes 
the contents of the 
and forth between 


it easy to examine 
CPU. or to جو‎ back 
BASIC and itself. 


find. you don’t have to worry about 
those hexidecimals, either, because 
there are seimPle commands that allow 


you to convert hex to decimal and dec- 


imal to- hex. In fact, ite a pretty 
easy way to get used to hex notation. 
Of course, you can alzo run your 


Programs and sou. can save them to ج36‎ 


as well. CEUG alto has commands to 
transfer memory blocks, load hexes in 
a quick fashion and change the cru 
registere. 

You. can also move a disPlay Page, 
uPlaser «ae downloand aned an antama mado 


PRINTER STATUS 


Although there is no way to count 
line automatically on the COLOR com- 
Puter, there are a fey thinge you, can 
do with Printer information. 


A lot of that information is in the 
manual you received with your COLOR 
comPyuter, although there iz one tyPo- 
SraPhical errer. That error is on 
Page 209 of the Extended Color Basic 
documentation, which sass you. can set 
the Line Printer width at decimal 11%. 
The correct address to set the width 
is decimal 1355. That’s pretty obvious 
ta anyone who is looking at the other 
addresses. 


However, you can also Peek into the 
PIA at decimal 637314 to check the 
status of your line Printer. If the 
Peek returns a4 or a6, then the 
Printer is an line. If it returns a 
Sor a 7, then it is off line. 


it 

Trs some of the addresses at the 
decimal 149 ~- 156 addresses. The one 
‘which shows up right away is 153, the 
comma field width. In short. sou do 


not have to have 16-sPace comma fields 
and can use any number you want. 


سم ہے جہ مم ہے مج سم ہے سم میں ہے مد نتم ہی ee‏ پیر مم ae‏ 


THANKS FOR 
THE MEMORIES 


Yes, we do love the Color Computer: 
but we get somewhat unkhaPPy when we 
Get right on the edge of usable mem- 
ers sand realize there is some 1.5% 
being "eaten" uP by hiSh-res graphic 
screens we're not Planning to use. 
There ig a was. 





Just CRE HED nen You Power 
uP,» and 1 E "| ave an additional, 
1.5K of bonafide memory to use. be 
aren't exactly sure what this doce, 
but it seems to remove the hidSh-rezs 
Graphic screen From memory. It chays 
Sone so lona as yom don’t PCLEAR the 


Color Computer. 


You have to Plan in advance. The 
Poke doesn’t werk if you leave off 
the NEL. and, if you have a ٤ب9‎ 0۹ 
residing in memory, the ‘HEV will 
WiPe 

Cine was to avoid this Problem if 
you did not Plan ahead would be to 
CSAVYE the Program reset the memars 


and then CLOAD the Program back itt. 


Az Bob Hepe zaid. 


سم e‏ سمل لہ ت ت مہ ت س سد س سی ت ت سے سم ت سی ہہ ہے 


COMTE ST FOR 


READERS 
JARECODE. Orders can be sent to the 
address listed دط٠.‎ 
And now the code .. . 
2G14-. 2656-! 266-B 3393-" 
Sec—-M 3299-5 -O1F-b) 16-# 
62-& 12 -0153-+ Z656-2 
4- 2656- 97-x 7777-2 
4444-% 2614-1 4444~. ZOLA- 
لا ے6 ۷-ن ا2‎ 4444-7 


Hawe fun decoding! 


RAINEOL 


In cooperation with JARPB SOFTWARE, 
all readers of the RAIHBOW are invited 
to Participate in a break - the - code 
contest. The winner, or winners. will 
receive a free copy of the JARBCODE 
Program reviewed on these pages. All 
you. have to do is decode the message 
below and send it to: Joe Bennett, 
Senior ProSgrammer, JAPB Software, 1169 
Florida St., Imperial Eeach, CA 32932. 
If you break the code, Bennett will 
send you a free copy of JARBCODE. 


But. you can be a winner anyway. 
Just mention the ۴61۲۲٥ when Placing 
an order for JARBCODE and you will Jet. 
3 $2 discount off the retail Price of 


em‏ مہ سم سد سد سی wr‏ سد سد کے سد س a‏ دہ سے سے 


SOFTWARE ۴۷۷16٢... 
نی‎ 6۲6۱٥) جا‎ 


If the JaPanese had had Joe Bennett 
and H. D. Stow on the side in bor ld 
War Il, there’s a Sood chance that the 
United States never would have crack- 
ed their code ... the act which did 
lead to the end of the war. 


Bennett, chief Programmer for JARE | 
SOFTWARE, and Stow have created a very 
Nice code-writing Package that anyone 
who likes -- or iz interested سے‎ in 
code would be Proud to own, The Pro- 
Sram is called JARECODE and iz avail- 
able for $14.95. Address iz 1169 Flo- 
rida St., ImPerial Beach, CA, 92032. 


JARBCOCE allows you. to send code at 


three different levels: almost imPos- 
sible to break, impossible to break, 
and "are you. kidding"! The excellent 


documentation sass that you would most 
likely need special equipment to break 
the toP code level -- and we beliewe 
jt. 


The Program iz alzo fun to use and 
if you are at all interested in codes 
JAPBCOCE is Just what you need. 


In addition to the Program’s main 


Purpose, it has zeme very interesting 
@raPhics Calthough in low res? to get. 
things going. We think the ےت 36ہ‎ 


are a bonus ta the Program itself and 
are Quite creative ... Proving, of 
course that you don’t HAVE to have 
Extended Color Basic ta enJay your 
Color ComPuter. 


We liked JARBCODE. 


س س مد عم ee‏ 


ment" machine and that was zort of a 
COMPANY linr. Wz don’t hzar that so 
much any more. All we do seem to hear 
is that because if (1) the screen and 
<2) the keyboard, the Color CamPuter 
{isn’t Soina to be very 900d az a word 
processing device. bell, we’ll see. 


TANDY OISc-aA 


According to a "very highly Placed 
source" in a Texas location which will 
herein 90 unnamed. the lona~-awaited 
Color Computer disc will make its 
aPPearance in RAusust or September, 


We Pass alena thie information 209 
you can == if you are of such mind == 
990 ahead and Place your order for one 
of the disc systems now. 


In connection with the disc, Radio 


Shack will announce a memory uParade 
for the Color ComPuter. We're not in 
on what form it will take. but it 


be uPPing the memory to 32K. 


What we DO know is that four disc 
drives will be available. Orive "9" 
will have a ROM-based DOS, so it will 
use UP a minimum of that all - to = 
Precious memory. It'll Plug into the 


ROM Cart Part on the right side of the 
Calor ComPuter. bord is the DOS will 
be about the zame az TRSDOS, except 
no Debug and Clock functions. The 
reazon for this. we understand, is 
because of basic differences between 


our 6299E and their 2-20. 


The PrajJected Price for Drive "f" 
is about £595. The other three are to 
be in the $200-$40A area. Tandy ex- 
Pects the waiting Period to be 30 to 
69 days, zo., if you want one Iuick, 
we understand you can Place an order 
NAL. 


By the was. 22K is about it as far 
az the Color Cenmputer 3 cencerned. 
The way we hear it. there IS another 
16K in there, but BASIC can’t use it. 
You. CAN Poke into it -~ if you have 
the memory -- and ite a good Place 
machine language. But wow can’t duat 
write a Program in BASIC and use that 
additional 16K. 


Frankla, the way we see it, Tandy 
is chanain ite tune a little on the 


Color CormPuter. It was originally 
Planned to be a "home" and "“entertain- 


ee 





tation were a little more comPlete for 
the novice. a couple of short Pro- 
arame worked throu9h step = by ~ جع‎ 
usin the SIGMON commands would go = 
long way toward helping the besinner 
understand a little more about a11 the 
mysterious stuff, 


With that one comPlaint, its really 
a fine Programm. And: with a ٤ 
Price tag, its in the Perfect sPot for 
someone who wants to see what all 2۶ 
assembly language stuff is all about, 


Remember, though, SIGMON is a MINI- 
assembler and disassembler. In short. 
it trys to be -- and succeeds -- ir 
beina a lot of things Packed in one 
tape. Because of that, its not like 3 

full-blown assembler, and doesn’t 
Pertend to be. But it is a 300d Place 
to start and the Price is certaini: 
right for anyone who wants to see what 
assembly language is all about. 


SIGMOWH is available from DataSoft. 
Ince, 19519 Business Center Drive. 
Northridge, CA 91324. 


ee ت س س‎ ee س مہ جح س ت ت س‎ 1 Á 


DRIVER BACKUP 


This month’s edition of the Tandy 
Newsletter carries some excellent 
information on making backups of disc 


files and information. As a rule, it 
is always a 200d idea to make a back- 
uP of everythin’ so you don’t loze it 


due ta the various Problems that crop 
uP with magnetic media. 


In order to make a backup of 3 
machine language tape, you need to use 
CSAVEM, but you also need some other 

nformation that isn’t always easily 


available. 


In the case of the Graphics Printer 
Oriver we mentioned last month, you 
need this information to make the 
backuP. That information, as in all 
CSAVEM’s is the Program’s start, end 
and transfer addresses. To save you. 
the trouble of looking for it, the 


ProPer command for the 16K Driver iz 
CSAVEM"FTFXKI6" , 157494, 16376, 15744, If 
i use at, you can make backuP 


coP ies of the Driver. 


SOFTWARE REVIEW. . . 
SIGMON 


SIGMONS from DataSoft, Inc.» is A 
very well thought-out machine lansuage 
monitor, mini-assembler; disassembler | 
and debusger all rolle nto a zingle 
tape. It was designed especially For 


the Color ComPuter and shows some Et i 
thousht out ideas. 


In effect, there are a total of 18 
commands you can use to access the 
memory of your comPuter, allowing you 
to do everything from reading the con- 


tents of the memory locations to set- 
ting breakPoints and examining the 
contents of the resisters in the 9 


CPU. Moreover, after you do all these 
things, wou. can run the assemlsly lans- 
433e Pro9ram you create ... either on 
a real-time basis or steP — by ster. 
The last oPtion gives you the change 
to examine the contents of the CPI 
registers and see how your Program is 
affecting them. 


A really nice feature of SIGMOAN is 
its ability to turn your Printer on or' 
off so that yas can trace your Proararm 
and have a record of what hapPencd. by! 
keepin the Printer on all the way 
throuah the Process, sou will be able 
to see what you did and what the re- 
sult of it was. 


You. can also set SIGMOH uP to oF- 
erate in either decimal or hexidecimal 
modes, as far as input is concerned. 
Far those trying to coPe with both 
assembly language and hexidecimals for 
the first time, that can be 3 bonus. 
However, SIGMON’s outPut is alwass in 


hex, so it can be confusing if you 
don’t remember what you are using to 
input. 


The PataSoft PeoPle have Put to- 
aether a very nice Package, and a very 
attractive booklet of documentation. 
The little drawings of "“Siamon" do 
help the novice assembly language Pro- 


Grammer understand the text a Little 
ketter. 

I would say SIGMOH isz a Perfect! 
Froaram to helP someone Set into the' 


comPlicated area of assembly language. 
One of the reasons for this iz simPlu 
because it is a helPful~tyPe Program, 
that sort of auides you, However, in 
view of that, I do with the dotumen-: 


USING THE EDITOR 


If you have Extended Color Basic, 
you will be happy to know that there 
have been a few things left out of the 
‘Radio Shack documentation on using the 
editor. And, if you have ھ‎ 9000 know- 
ledge of Level II Basic, you misht 
have felt cheated that all the editing 
commands in Level II were not included 
in Extended Color. 


Not to worry. They sare all there, 
the manual Just "forsets" to mention 
three of them. The "missin?" editing 
commands are "A", "E" and "Q". For 


those of you not familiar with Level I 
we Will Present a short rundown of the 
changes below: 


A (Cancel and Restart): 
This command moves the cursor back 
to the besginnind of the Program line 
and cancels the editing chan3eec you 
have made, 


E ¢€Save Chane and Exit?: 
This one makes the comPuter end the 
editin’S Process and save all the edits 
you. have made. It is much the same 
as hitting ENTER. 


0 €Cancel and Exit): 


When you decide you didn’t really 
want to make those edits, "Lt" is the 
command command d command to use. 

For "A" and "E" you. cannot be in a 
subcommand mode. If you are, you must 
exit the subcommand “bu hitting the 
uP arrow and SHIFT at the zame times 


before they will work. 


ہے سے مہ سد لد ت سے a ee‏ ت ت ت ت 


set uP. 
Finally, you might wish to Place an 
END instruction before the ecreen 
printer Program FET make sure that 
Whatever {sou are working on does riot 
"apill”" into the screen Printer. 


SCREEN PRINTER 


OF course a Printer will helP you 
a 9reat deal in debugging Program, be- 
cause, for one thing, you don’t have 
to scroll your disPlay back and forth 


to trace the workings of 3 Pro3ram. 
But there can be other Problems, 
too ~- such as remembering the value 


of variables and working with disPlays 
where it would be Sood to be able to 
Print out the alphanumeric contents of 
the screen’s disPlay. 


The following Program will do Just 
that. And it will Sive you the exact 
relationshie of the disPlay to the 
SdisPlay to the screen. since it prints 
cut the screen on a one~for-one basis 
to the Printer. 


It will not, however, disPlay the 
Graphics symbole on the screen. nor 
will it 3ive a lower case Printout. 
The reason there is no lower case 
ability is shown in line 40 belom. In 
order to deal with the character set. 
it is necessary to convert the CHR 
references found in the PEEKs. That. 
is no bi9 Problem. and we exPect that 
most of you don’t use lower case on 


the screen anyyiay, because the reverse 
araPhic nature of lower case makes the 


screen look Peculiar. Despite these 
Problems, we think you will find the 
screen Printer will be a 90nd utility 


YOU Can use. 
The Program: 
FOR X= TO 16 


FOR Y=1 TO 32 
RNEPEEK (<. X32 +Y +1023) 


19 
29 


239 


4G IF Q=>96 AND Of=127 THEN 0=2-64 
ZO PRINT#—-Z, CHR#6Q ید‎ 

69 NEXT Y 

60 PRINT#-2,"" 

TQ NEXT X 

Sa END- 

We suggest using very high line 
numbers for this Program, so that it 
can Just sit uP “on top" of whatever 
Program you. ٢ء٣‎ to be working on. 
Then, when you want to do ھ‎ Print of 

the screen, simply GOTO the line 


number where the is 


screen Printer 


AN EDUCATIONAL PROGRAM FOR ےۓع‎ ح۲٢‎ ONE 


Here is a Pragram that can really be of use to Just about everyone in the 
family. It is called AMORT and it dealz with money at interest. 


On one level, it can be used as a regular interest Program that will help 
you figure out such things as how much it will cost you a month to buy the new 
disc drives for your COLOR comPuter. That’s not a bad thins to know. 


On the other level, however, there are some exPlainations built in to hele 
teach those infamiliar with the terms involved with money at interest juzt 
what the terms mean. And there is a "cute" little default if seu don’t make 
the ProPer resPanze to the amount of time the loan has to run question. 


AMORT is written for non-Extended Color Basie. which == as you know == does 
not have the ability to raise numbers to Powers., There iz a way around that 
limitation of course, and it can be found in lines 30 and 69. For those of you 
wha do have Extended Color Basic, you misht with to chanse thease lines. The 
result will be a sliShtly more accurate result -- esPecially on the more com- 
Plicated calculations for longer Periods of time. 


However, non-Extended Color userz will have to change the PRINTUSING com- 
mands in lines 148-146, 310 and 340. Just take out the reference to USING and 
the Pound- and dollar-signse. That was. the Program will run without any 
madification an your Part. 


` Finally, notice the use of the variable PO to send output to the Printer. 
If you. want. wou can eliminate the references to PN, but you would Frobably be 
better off leavina them in -- in anticipation of the time when you might get a 


Printer. Just answer "No" to the question in line 32 and no harm is done. 


Here is the listina: 


3? (PPS Pees to 22% 2&2 2 + ٢ 2 4 

4? ¥ AMORT PROGRAM ¥ 

ely ¥ Kc) FALSOFT. 1881 + 

4 2 9% 22 2 2 5 ۲ :۲× رر ہر ہر :ہچ E”‏ 

16 C=8:CLS 

12 PRINT " THIS PROGRAM WILL GEHERATE AH AMORITZATION SCHECULE FOR MOST 


COMMOH LOANS." 

12 PRIHT:PRIHT “PLEASE FOLLOW DIRECTIONS "00ا‎ 

14 PRINT STRIHGE 32, "=") 

1% INPUT “FIRST. WE HEED TO KHOW HOW MICH YOU WAHT TO BORROW. THIS 13 CAL 
LED THE Principal. WHAT IS THE PRINCIPAL": P 

16 CLS'PRIHT 6 7 


17 PA=P 

20 IHPUT "HOW, WE MUST KNOW THE HUMBER QOF Periods THE LOAH WILL RIH. IF 
“Ol WISH TO EHTER THE PERIOOS Er MOHTHs TYPE IH THE WORD ’MOHTH.’ I 
F ITS YEARS. TYPE IH ’YEAR.’ WHICH IS IT"; AF 


21 IF LEFTS¢C A#,1>9="M" THEN 276 

22 IF LEFTS¢CA¢.19=""" THEM Z6G 

23 GOTOZIO 

30 006 657 

21 INFUT "LASTLY. WE HEED TO KHOW WHAT INTEREST RATE YOU WILL EE 
EGED OW THE LOAN. WHAT S THE ۴٥۲۴ 

32 INPUT “ DO YOU WAHT A PRINTOUT" ;PO#:1IF LEFTS¢P04,19=""¢" THEH PO=1 
go Ces 


43 2-۴7 1218110 


D 
x= 
i 


ERE 

ZA ٠-۱۰۴0 ۴ “=1 TO ا‎ 

EO T=T# 1+1 'HEXT X:T=1/T 

70 T=1-T 

M=P¥I/T‏ وع 

99 6)6 6 

100 FOR 2-1 TOL 

120 )-م‎ INTC P#I¥100+. 5 92/199 

139 B=M-A:P=P~B 

149 PRINTTARCO >); (PRINTUSING"##4"5 ر2‎ IF PO THEN PRINT#-2, TABCO9; :PRINTH-2,.USIHG"# 
##"52; 

142 PRIHTTABC 393 ‘PRINTUSIHG HHH) #44. #4"5P3:IF PO THEN PRINT#—-2, TAC 33; -PRIHTH-2, 
LISTHG" ,و‎ HHH. HH" 1P; . 

144 PRIHTTABC 14): :PRIHTUSING"#. #44. ##"; BJ IF PO THEN PRINT#-2, TABS 14>; :PRIHT#-2, | 
USING" #, HHH. #4" رق‎ 

146 ٣۵1۲۲۲661 239; :PRINTUSING'#. 444. ##"; A:IF PO THEN PRINT#-2. TABC 23); :PRINT#-2.1J 
SIHG" A #44. م۰6‎ 

160 Q=Q+1:C=C+1:AT=AT+A:NEYT 2 

165 666069 

170 EHD 

206 CLS: MA=H+. GOS: MA=INTCMA¥19097100:IF PO THEN PRIHT#-2, TABE 4 >"AMORITIZATION SC 
HEDIJLE" سے‎ 

201 IF PO THEN PRINT#-2."PAYMEHTS ARE $";MA — 

202 IF PO THEMPRIHT #-2.TAB< 42 "BALANCE"; 

204 IF PO THEN PRINT #-2,TABC14> "PMT-PRIH"; 

206 IF PO THEN PRINT #-2,TABC24> "PMT/INT" 

293 PRINT"PAYMENTS ARE (08ءع‎ 

216 PRIHTTABS 4 )"BRLAHCE" TABS 14 "PMT/PRIN" TABS 24 2"PMT“IHT" 

220 RETURH 

250 CLS¢5>:PRINT P22, "HO! "j 

252 PRINT @162. "HEIN!" ; 

254 PRINT C243, "HYET! "i 

255 PRINT e223," HO NO HO HO HO HO HO HO HO HD" 

257 PRIHT@252." ";:PRIHT " YOU DID HOT FOLLAM THE DIRECTIONS PROPERLY. E 
HTER OHL THE WORD ‘YEAR’ OF THE WORD *MONTH.’ HOW, TRY AGAIN. 


252 FOR WH=1 TO 2068:1 WH: CLS: PRINT: PRIHT : GOTO2O 

ZEO PRINT 

Z61 IMPUT "O.K.. HOM HILL ‘YOU PLEASE ENTER THE HUMBER OF YEARS BEFORE YA 
دا‎ ۴۴۹۰ OFF THE "06۲1ا‎ YR 

263 L=YR¥12:GNATO 30 

276 PRIHT 

271 INPUT “ALL RIGHT, HOL WILL YOU PLEASE ٤٤٤٤ THE HUMBER OF MOHTHS IT 
WILL TAKE TO FAY OFF THE LOAH" از‎ 

275 GOTO 2A 

ZOQ IF FO THEN PRIHT#-2." ":PRIHTH-2. TAB. 1Q>"LOAN SUMMARY" : PRIHTH-2, TABS 1 3"==== 


310 IF PO THEM PRINTH-2. TACK S3 "PRINCIPAL: "3 :PRINT#-2,USIHG"TFHH. HHH. tH" IFA 
320 IF FO THEM PRIHT#-2." PERIODS: "Li: PRIHT#-2, " RATE: "i PRINTH#H-2.USTHG" tt 


HHR: PRIHTH- 2 "N" 

S30 IF PO THEM FRINT #-2. STRIHGF. 31, "=" 

<0 IF PO THEN PRINT #-2. "TOTAL INTEREST: ";:PRIHTH-2.USIHG" EHHH. HHH. HH! : FIT 
S50 IF PO THEM PRIHTH#-2." ""PRIHTH-2," "“PRIHTH-2,." " 


لد کے سے سے سے سے سے کے کے سے کے سے سے سے کے oR‏ 


Please enter my subscriPtion to the RAINBOW for one year. My 
#12 is enclosed. 


